home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / MAILMEN.ARC / MAILMEN.PRG < prev    next >
Text File  |  1985-12-21  |  2KB  |  77 lines
  1. * Converted to Dbase III by Bill Simpson 6/7/85 (713) 530-8500
  2. *!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
  3. *
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. *THIS PROGRAM IS CALLED MAILMEN.PRG-- IT HANDLES ALL SUB PROGRAMS TO OPERATE
  7. * MAILING LISTS. COPYRIGHT JULY 30,1983 BY PHILIP K. PERLMAN
  8. SET TALK OFF
  9. RELEASE ALL
  10. SET BELL OFF
  11. *!! Logical constant converted.
  12. DO WHILE .T.
  13.   USE
  14.   CLEAR
  15.   SET FORMAT TO PRINTMEN
  16.   STORE ' ' TO NEXT
  17.   READ
  18.   CLEAR GETS
  19.   SET FORMAT
  20.   IF VAL(NEXT) = 1
  21.     SET DEVICE TO SCREEN
  22.     DO MAILINP
  23.     RELEASE ALL
  24.   ELSE
  25.     IF VAL(NEXT) = 2
  26.       SET DEVICE TO SCREEN
  27.       DO MAILED
  28.       RELEASE ALL
  29.     ELSE
  30.       IF VAL(NEXT) = 3
  31.         SET DEVICE TO SCREEN
  32.         DO PRINTCAT
  33.         RELEASE ALL
  34.       ELSE
  35.         IF VAL(NEXT) = 4
  36.           SET DEVICE TO SCREEN
  37.           DO PRINTROL                               
  38.           RELEASE ALL
  39.         ELSE
  40.           IF VAL(NEXT) = 5
  41.             SET DEVICE TO SCREEN
  42.             DO PRINTLAB                                    
  43.             RELEASE ALL
  44.           ELSE
  45.             IF VAL(NEXT) = 6
  46.               SET DEVICE TO SCREEN
  47.               DO PRINTIND
  48.               RELEASE ALL
  49.             ELSE
  50.               IF VAL(NEXT) = 7
  51.                 SET DEVICE TO SCREEN
  52.                 DO XMASLAB
  53.                 RELEASE ALL
  54.               ELSE
  55.                 IF VAL(NEXT) = 8
  56.                   SET DEVICE TO SCREEN
  57.                   DO BIRTHDAY
  58.                   RELEASE ALL
  59.                 ELSE
  60.                   IF VAL(NEXT) = 9
  61.                     CLEAR
  62.                     QUIT
  63.                   ELSE
  64.                     LOOP
  65.                   ENDIF
  66.                 ENDIF
  67.               ENDIF
  68.             ENDIF
  69.           ENDIF
  70.         ENDIF
  71.       ENDIF
  72.     ENDIF
  73.   ENDIF
  74. ENDDO
  75.  
  76.  
  77.